100 POKE53280,.:POKE53281,.:GOTO480
110 PRINTS$;SC:RETURN
480 CLR:FORI=54272TO54296:POKEI,.:NEXT:POKE54296,15:POKE54277,17:POKE54278,240
490 POKE54276,33:C=54272
500 PRINT"[147][153]               SLITHER IV               "
591 S$="[159]SC:[157]":H$="HI:[157]":M$="[159]SNAKES:[157]"
592 B$="BONUS:[157]"
593 I$="[154]PRESS FIRE TO CONTINUE"
594 E$="[156]  PLAY AGAIN ? (Y/N)  "
599 PRINT"[145]<[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]>"
600 PRINT"[158]REQUIRES JOYSTICK IN PORT #1 
601 [153]"PRESS:WAIT":[153]"JOYSTICKWAIT FOR INSTRUCTIONS"
602 [153]"FIRE BUTTONWAIT TO PLAY
610 A=1465:SM=65:ML=5
620 ER=32:MA=.:TR=81:CH=33:WA=TR:PA=56321:SR=1024:RS=1104
630 OP=127:TF=255:N1=128:N2=8:N3=16:N4=4:NE=1:SC=.:DIMJS(12),SN(12):NM=2:NC=1
631 FT=15:F0=4:SE=17:SX=16:OE=1:SF=65:S9=64:EV=11:DE=2:TE=10
640 CL=NC:JS(1)=-40:JS(2)=40:JS(8)=1:JS(4)=-1:J1=8
641 SN(1)=30:SN(2)=22:SN(8)=62:SN(4)=60:HU=100:NI=9:X1=C+F0
650 GOSUB840:GOSUB850
651 IFFR<>16THEN660
652 IFJS(J1)<>.THENGOSUB3000
656 GOTO650
660 POKEC+4,17:POKEC+1,72:POKEC,200:POKEC+4,16
670 POKE53281,1:POKE646,1:PRINTCHR$(147):POKE53280,.:POKE53281,.
680 POKEC+4,17:POKEC+1,81:POKEC+1,120:POKEC+4,16:GOSUB860
690 A=1145:FORI=1TONM
700 W=INT(RND(I)*919)+1:J=INT(RND(I)*6)+1:IFPEEK(RS+W)<>32THEN700
710 IFW+RS=ATHEN700
715 POKEC+4,17:POKEC+1,JS(2):POKEC,JS(10):POKEC+4,16
720 POKEW+RS,SM:POKEW+C+RS,J:NEXT
730 FORI=1TONC:W=INT(RND(I)*919)+1
740 W=INT(RND(I)*919)+1:J=INT(RND(I)*6)+7:K=83
750 IFPEEK(RS+W)<>32THEN740
760 IFW+RS=ATHEN740
770 POKEC+4,17:POKEC+1,34:POKEC,75:POKEW+RS,K:POKEW+C+RS,J
780 NEXT:POKEC+4,16
781 POKEC,CH:POKEC+OE,SN(DE):L=8:TI$="000000"
790 POKEA,SN(J1):GOSUB850:B=A+JS(J1):L=J1
800 ONINT((HU-PEEK(B))/NI)GOTO820,1000,1000,830,,,830,830,,,830
820 POKEX1,SE:CL=CL-NE:SC=SC+TE:GOSUB110:POKEX1,SX:IFCL=.THEN1040
830 POKEX1,SF:POKEA,TR:POKEX1,S9
835 A=B:GOTO790
840 P=PEEK(PA):FR=PANDSX:RETURN
850 J1=FT-(PEEK(PA)ANDFT):J1=J1*-(JS(J1)<>.)+L*-(JS(J1)=.):RETURN
860 PRINT"[158]               SLITHER IV               "
862 PRINT"[145][159]                                        [158]"H$;HS;B$;BO;M$;ML;S$;SC
870 FORI=1104TO1143:POKEI,WA:POKEI+C,13:POKEI+880,WA:POKEI+C+880,13:NEXT
880 FORI=1104TO2023STEP40:POKEI,WA:POKEI+C,13:POKEI+39,WA:POKEI+39+C,13:NEXT
890 W=INT(RND(.)*5)+1
900 ONWGOSUB920,940,970
910 RETURN
920 FORI=1233TO1780STEPJS(2):POKEI,WA:POKEI+C,13:POKEI+11,WA:POKEI+11+C,13:NEXT
930 RETURN
940 FORI=1124TO1364STEPJS(2):POKEI,WA:POKEI+C,13:POKEI+NE,WA:POKEI+NE+C,13
950 POKEI+330,WA:POKEI+330+C,13:POKEI+331,WA:POKEI+331+C,13:NEXT
960 FORI=1584TO1596:POKEI,WA:POKEI+C,13:POKEI+14,WA:POKEI+14+C,13:NEXT:RETURN
970 FORI=1154TO1394STEPJS(2):POKEI,WA:POKEI+C,13:POKEI+NE,WA:POKEI+NE+C,13:NEXT
980 FORI=1440TO1920STEPJS(2):POKEI,WA:POKEI+C,13
990 POKEI+12,WA:POKEI+12+C,13:NEXT:RETURN
1000 POKEB,214
1010 POKEA,81:POKEC+4,17:FORI=QTO10:POKEC+1,RND(.)*200+5
1020 POKEC,RND(.)*100+10:NEXT:POKEC+4,16:ML=ML-1:IFML=.THEN1130
1030 GOTO1080
1040 BO=INT((100-VAL(TI$))/10):IFBO<.THENBO=.
1041 IFBO>9THENBO=9
1050 PRINT"[153]"B$;BO
1060 POKEA,TR:POKEB,K:POKEX1,17:FORI=1TO30:POKEC+1,6*I
1070 POKEC,6*I:NEXT:POKEX1,16
1080 SC=SC+BO:PRINTS$;SC:PRINTM$;ML:IFSC>HSTHENHS=SC:PRINT"[153]"H$;HS
1100 PRINTI$
1110 GOSUB840:IFFR=16THEN1110
1120 PRINTCHR$(147):NM=NM+2:NC=NC+2:CL=NC:BO=.:GOTO670
1130 FORI=105TO.STEP-1:POKE53280,I:NEXT:POKE53280,4
1150 PRINTS$;SC;M$;ML:IFSC>HSTHENHS=SC:PRINT"[153]"H$;HS
1155 PRINTE$
1160 GETAN$:IFAN$<>"Y"ANDAN$<>"N"THEN1160
1161 IFAN$="N"THEN2000
1170 BO=.:SC=.:NC=1:NM=2:CL=NC:PRINTCHR$(147):ML=5
1180 GOTO670
2000 FORI=54272TO54296:POKEI,.:NEXT:PRINT"[147]":END
3000 PRINT" USE THE JOYSTICK TO GUIDE YOUR SNAKES  THROUGH THE GARDEN";
3010 PRINT" LOOKING FOR TREATS   LIKE THIS [211].":PRINT"BUT DON'T TOUCH THE ";
3020 PRINT"POISON MUSHROOMS   ([193]), THE GARDEN WALLS ([153][209]) OR YOUR       ";
3030 PRINT"SNAKE'S BODY. THEY ARE ALL DEADLY."
3031 PRINT"                                  "
3033 PRINT"YOU WILL HAVE 5 SNAKES. WHEN THEY ";
3040 PRINT"ARE  ALL DEAD THE GAME IS OVER.":PRINT"IF YOU CLEAR THE SCREEN OF";
3050 PRINT" ALL THE     TREATS ([211]) OR YOU LOSE YOUR SNAKE YOU   MOVE ON TO A";
3060 PRINT" HARDER SCREEN.":PRINT"CLEAR THE SCREEN QUICKLY ENOUGH AND ";
3065 PRINT"YOUWILL RECEIVE A BONUS BASED ON YOUR SNAKESPEED.
3070 [153]"SYS PRESS FIRE BUTTON TO PLAY "
3075 [141]840
3080 [139]FR[178]16[167]3075
3085 [142]